Сначала обсудим функцию MessageDlg (как более содержательную). Она используется для вывода на экран messagebox'а с неким сообщением и несколькими кнопками (Yes, No, OK и т. д.), которое выглядит приблизительно так:

6_1.gif (8716 b)

Параметры у этой функции следующие. Первый задает строку, которая будет показываться в нашем сообщении (Как и все строи в Delphi, заключаем ее в одинарные кавычки). Второй параметр определяет иконку на нашем messagebox'е и сообщение в его заголовке. Возможные значения для этого параметра - mtConfirmation (Подтверждение), mtInformation (Сообщение), mtWarning (Предупреждение), mtError (Ошибка). Обратите внимание, что при записи любого из перечисленных значений messagebox получит и соответствующий заголовок. Для этого параметра есть еще одно значение - mtCustom. Если использовать его, то никакой иконки в нашем messagebox'е не будет, а заголовок будет совпадать с именем exe-файла.

Третий параметр определяет кнопки, которые будут присутствовать на combobox'е. Вот некоторые из возможных значений: mbYes (кнопка Yes ), mbNo (кнопка No ), mbCancel (кнопка Cancel ), mbOK (кнопка OK ). Если кнопок несколько, то они объединяются посредством квадратных скобок (например, если мы хотим, чтобы присутствовало две кнопки Yes и No, то пишем [mbYes , mbNo ]).

Последний, четвертый параметр - это идентификатор контекстной справки.

В качестве результата функции MessageDlg возвращает значение, информирующее о том, что за кнопку пользователь нажал в messagebox'е. Вот несколько возможных значений: mrYes , mrCancel , mrOK . А вот и пример использования функции MessageDlg:

  if MessageDlg('Выходим из программы?',
    mtConfirmation, [mbYes, mbNo], 0) = mrYes
  then close;

В этом фрагменте у пользователя спрашивается, надо ли выходить из программы, и при положительном ответе программа закрывается.

Теперь обсудим функцию ShowMessage. У неё только один параметр - текст сообщения. Вот пример:

ShowMessage('Сообщение');

Ничего тут особо интересного нет. Отметим, что эта функция используется для вывода простых сообщений, которые не требуют ответа от пользователя (типа Yes, No и т. д.).

Автор Алексеев Игорь..

Изучаем Delphi. Библиотека VCL. Урок 6. Функции MessageDlg и ShowMessage